home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / ModToPas / txt / TPMath.mod < prev    next >
Text File  |  1993-12-13  |  1KB  |  91 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    TPMath.mod
  4.     :Contents.   Turbo Pascal Matheprozeduren
  5.     :Author.     Markus Uhlendahl
  6.     :Address.    Vorm Burgtor 16, D-4408 Dülmen
  7.     :Phone.      02594/81540
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga AMSoft V3.3d
  11.  
  12. **********************************************************************)
  13. IMPLEMENTATION MODULE TPMath;
  14.  
  15.  
  16. IMPORT MathLib0;
  17.  
  18.  
  19. PROCEDURE Abs (r : REAL) : REAL;
  20.  
  21.   BEGIN
  22.     RETURN (ABS(r));
  23.   END Abs;
  24.  
  25.  
  26. PROCEDURE ArcTan (r : REAL) : REAL;
  27.  
  28.   BEGIN
  29.     RETURN (MathLib0.arctan(r));
  30.   END ArcTan;
  31.  
  32.  
  33. PROCEDURE Cos (r : REAL) : REAL;
  34.  
  35.   BEGIN
  36.     RETURN (MathLib0.cos(r));
  37.   END Cos;
  38.  
  39.  
  40. PROCEDURE Exp (r : REAL) : REAL;
  41.  
  42.   BEGIN
  43.     RETURN (MathLib0.exp(r));
  44.   END Exp;
  45.  
  46.  
  47. PROCEDURE Frac (r : REAL) : REAL;
  48.  
  49.   BEGIN
  50.     RETURN (r-REAL(LONGINT(r)));
  51.   END Frac;
  52.  
  53.  
  54. PROCEDURE Ln (r : REAL) : REAL;
  55.  
  56.   BEGIN
  57.     RETURN (MathLib0.ln(r));
  58.   END Ln;
  59.  
  60.  
  61. PROCEDURE Round (r : REAL) : REAL;
  62.  
  63.   BEGIN
  64.     r:=r+0.5;
  65.     RETURN (REAL(LONGINT(r)));
  66.   END Round;
  67.  
  68.  
  69. PROCEDURE Sin (r : REAL) : REAL;
  70.  
  71.   BEGIN
  72.     RETURN (MathLib0.sin(r));
  73.   END Sin;
  74.  
  75.  
  76. PROCEDURE Sqr (r : REAL) : REAL;
  77.  
  78.   BEGIN
  79.     RETURN (r * r);
  80.   END Sqr;
  81.  
  82.  
  83. PROCEDURE Sqrt (r : REAL) : REAL;
  84.  
  85.   BEGIN
  86.     RETURN (MathLib0.sqrt(r));
  87.   END Sqrt;
  88.  
  89.  
  90. END TPMath.
  91.